home *** CD-ROM | disk | FTP | other *** search
/ The Body Language - 48 Kinds of Fuck / The Body Language - 48 Kinds of Fuck.iso / pc / data / shared.dir / 00301_Script_301 next >
Text File  |  1995-08-06  |  1KB  |  62 lines

  1. on pushBtn
  2.   put the castNum of sprite clickOn () into btnCN
  3.   repeat while the stillDown
  4.     if rollOver (clickOn () ) then
  5.       set the castNum of sprite clickOn() to btnCN + 1
  6.     else
  7.       set the castNum of sprite clickOn() to btnCN
  8.     end if
  9.     updateStage
  10.   end repeat
  11.   set the castNum of sprite clickOn() to btnCN
  12.   updateStage
  13. end pushBtn
  14.  
  15.  
  16. on CHECKSE
  17.   global aiff
  18.   if soundbusy(1) then nothing
  19.   else
  20.     sound playfile 1,AIFF
  21. end if
  22. end
  23.  
  24. on pushbtn2
  25. put the locH of sprite clickon() into btnH
  26. put the locV of sprite clickon() into btnV
  27. repeat while the stilldown
  28. if rollover(clickon()) then
  29. set the locH of sprite clickon() to btnH + 2
  30. set the locV of sprite clickon() to btnV + 2
  31. else
  32. set the loch of sprite clickon() to btnH
  33. set the locV of sprite clickon() to btnV
  34. end if
  35. updatestage
  36. end repeat
  37. set the loch of sprite clickon() to btnH
  38. set the locV of sprite clickon() to btnV
  39. updatestage
  40. end pushbtn2
  41.  
  42. on INKCH
  43. repeat while stillDown()
  44. if rollOver(clickOn()) then
  45. set the ink of sprite clickOn() = 4
  46. else
  47. set the ink of sprite clickOn() = 0
  48. end if
  49. updateStage
  50. end repeat
  51. set the ink of sprite clickOn() = 0
  52. updateStage
  53.  
  54. end INKCH
  55.  
  56. ON QTSTOP
  57. if the movierate of sprite 12 = 0 then
  58. go to marker(1)
  59. else
  60. go to marker(0)
  61. end if
  62. END QTSTOP